-#~^« 



LABEL 000000000PRIMEK00175099CC LX U6 JECT /RE AH ; F ILE SUURCEF I IE*5 YMBUl/P APEH; ENO* 



OBJECT /READ 



9 

III 

h 

id 

»l 

14' 
15 
16 

! 17 

18 
IS 

ho 

'21 



2b 

?rs 

27 
28 
29 

30 
31~ 

32 

in 
,« 
3S 

I'' " 
,if 
39 
»0 

»2 

*i~ 

M 

15 

Wi 

4V 

48 

49 

SO 

51 

32 

53 

54 

)S 

56 

Si- 




ft 

2< 

3 
4 
5< 

6 



9 

10 

11 I 

12 

13 

,4* 

15 

16 

,7< 

18 

19 

20 ( 

21 

22 

23 < 

24 

25 

26 ( 

27 

28 

29 ( 

30 

31 

32 < 

33 



34 

35 

36 

37 

38 

39 

40 

4,' 

42 

43 

44 ' 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57. 



• 
• 



m 



BEGIN REAL COMMON; 
* CANDE PAPER 

COMMENT L * 



5 

6 
'I 

a 

10' 

ii 

12 



* 

* 
* 
* 
* 

* 



..,._... TAPE PROGRAM " KE.VI3E0 3-72 (SHM) 

.TnLO...fi5ifl.a/U57.fli}...MAM...XiV_ J aiiUXM._J<LlX^ 

FILE 101 SYMBOL/PAPER TAPE ID C SYMBQL2/F ILEOOO 

THIS MATERIAL IS PROPRIETARY TO BURROUGHS CORPORATION 

.A__0.-LS KPT TO HE REPROUUCFD, iiSFn. OR nTSf.lflSFD 

EXCEPT H ACCORDANCE WITH PROGRAM LICENSE OR UPON 
WRITTEN AUTHORIZATION uF THE PATENT DIVISION OF 
JU.MQUj_hS,„.C.mPm^ 



OOOaOOOQ 
00010100 

jQjMifl.ua.. 

00010111 

00010H2 

-OOP 1Q.1U 

000 10 1 1 -tl 

00010115 
_fl_e_ft.ll 6. 



17 
18 
19 

tV 

121 

a?' 

B3| 
34 
25 
36 
27 
28 
29 
90 

»l 

33 
34, 

, JS I 
361 
|37 r 

("I 
h 19 



56 
56 



FILE 
FILE 



COPYRIGHT CO 1971* 19/2 BURROUGHS CORPORATION 

________ ________ 

TWX 14 (2*11)* 
SOURCE DISK SERIAL 



* 
* 

__ 



ux^rv «n^ L (2* 0* )* % SOURCE FILE 

FJLE PATCH DISK SJRJAL _C 2 0_:_60_0 _ C 2* 10* 3 00* S AVE 1>* * PaTCH FILE 

FILE WRKFIL DISK SERIAL E_0I600T"<2»~10, 300, SAVE 1)7 JTwORK FILE 

FILE NEWTA8 DlSK SERIAL C20« 303 C 2> 30* 300* SAVE 1)* % TAB FILE 

SAVE. ARRAY SQRTA*MEflGE tp » 512 ] * A#>B*N_0» 3.0J.* TtOllOJJ 

ARRAY SORTAA#SORTB"Brc:Qfi#nJ 1? \l~ " ~ 



EOF 5* 
SKIP* 



MEHGTOG 



ARRAY SbRTAA*S0RTBTcC:T6*"bJ32j"* 
LABEL COMPARE* ENDMERGE* E0F1* EUF4* 
NEXJP, PCYCLE* READ1* _£T_AR.IMERGE* 
TLOOP* WRiTENEw; 

BOOLEAN BFULL* BRAAK* EQLTQG* 
SEOMOpE* SFLg* SORT_CG* 

REAL Al* A2, A3, A 4. AAPTR* AAiEQ, AaVoRO* 
AWORD, Bl» 82* B3* 64* 65* BADE* COOL* 
1P.F.MARK* I* I A* IAA* IBB* INCH* _g>_ LINE* 
NCT* NPTR* NSEQ* N. ORD, 6l* 02* PATCNT* 
Nl* N2* PPTR, PREV, PSEQ* PWORO* RECSZ, SEQ, 
SZN, SZO* TSEQ* USER* 



EXIT 



ASEQ 



SNAME, 



''bEFlNY"LEFfARROW = "* M )l(; ~" " " " ~ ~ ' ~ 

j;******************************************************************^** 



00010117 
00010118 
-Qfl.QiJ3.119. 
00010200 
00010300 
0_\1040 
00010500 
00010600 
00010700 
00010800 
00010900 

oo.oi-i.o-oa 

00011100 

00011200 

.OQ__.li__Q_ 

oooiuoo 

00011500 
00.0 1.1.6.0 0_ 

00011700 
00011800 

OQ O U ___ 



..SIREA.M_,PR.Q.OE DURE MQVE(N*A*B)J VA LUE Nj % MOVE N hds FrQM a TO B 

BEGIN LOCAL MJ 

._ SL_.LQ_._1_ _If s. Lac HI D I » ■ P I ♦ 1 ; S : » 7 CriHJ 

su=a; pi:=b; ds. . wqs; mcos:'s32 w"6s* o s j = 3 ^ wos.* 

end; 
j.* _**-*..*_*. ..*.* ..*.* ******** * ** ****** * ***** * *** * ** ** *** *** * ********* *********** 



PROCEDURE SORHL'UH X RECURSIVE SORT ROUTINE 

************** * * ****************************************************** 



00012000 
**00012100 
_ QQ0122Qfl.. 
**00012300 

00012400 

._ fljasusaa. 

00012600 
00012700 



-VALUE.LtUl. 



REAL L*u; 

begin real i*j*k*m; 

L ABE k A G A I N »J OP »BCTTUM,EXl T ; 

IF L NEQ U THEN 
IF L*l«U THEN 



00012900 
**00013000 
.00013100 



END 
....ELSE 



B ES IN. IE _J__I A ________1_LI_.____ _____! . L2 1 __7 1 

DQUBLE(SORTAtL3*SORTA[U3»*#SORTACt]»SORTAtLJ)J 
n_n 



IH£N_ 



BEGIN M»»(U+L) DIV 2i 
SORT(L*M); SQRT(M+1,U); 

.jj.:»_±__ 



AGAINI 



FOR L»»L STEP 1 WHILE SORT A[L I , [2 1 « 27 J LSS SOrTAC jT, .2~i I 27 I D~OV 

IF L LEQ M THEN 

BEGIN I._"KI»U. ... _ _ _ __________ 

IF I GTR M THEN GO TO TQPJ 

IF J GTR U THEN GO TO BOTTOM; 
.I£.-S__fA[n.E8*«2r] LE Q SORT .ACJ].[gll27 3 THEN GO TO BOTTHMf 



00013200 
00013300 

00013400 

00013500 
00013600 

___Q_Qll__fl. 
00013800 
00013900 

_ 00-0.11000- 
00014100 
00014200 

.-_. Q__l___Q_ 
00014400 

0U014500 
..___A__1_ 



00014700 
00014800 
001490 



-K 



a 

9 

10 

ii i 



17 

18 

19 

20 ( 

21 

22 

23 ( 

24 

25 

26 i 

27 

28 



29 £ 



30 



32 I 

33 

34 

35 ( 
36 
37 

36 ( 
39 
40 
4,1 
42 
43 
44 1 
45 
46 

47 < 
48 
49 

50 { 
51 
52 

53 i 
54 
55 



m • 



•> 



f 

ai 

i - 

.10, 

'"I 
u, 

11 

u' 

15 

116 
|l7 

lie 

Il9 

'so 

121 

■2.; 

,23 
1 24 
2S 
JB 
27 
28 
29 
JO 
31 
32 
M3' 
'.14| 
J5 
liii 

|jf)| 
39 
41) 
11 
« 
4.1 
44 
46 
46 
4 7 
48 
49 
iO 
51 

53 
j4 
56 



TOPS MERGECK3l*SCRTA[j]; 

- If K.5K+1 LEG U T11E.N &Q.-I.G AGAIN ELSE GQ EX II.; _.. 

BOTTOM! MERGEtK3»»S0RTA[l]; 

i*»i+i; 

lf..K»«i$ + i._L££-..U..ThXli GO TQ AqaiM; 

EXIT! MUVE< U-L + l, MERGE IU> SUNT A CU); 
END 

E.N.Q.. 

end sort; 

IK*************************************************************** 
.PROCEDURE DlSK.MAlICXf..AJ-S-AH.l.i __.'. _ _ 

value i»s,d; peal i*s>d; array ac*]; c g t*, m u n I c a t e c - a > ; 

J*************************************************************** 

.P.R0C.EDURE.. MmUllLtRt I1JL_ _ _ _ _ _ _ _ 

%*************************************************************** 

value n#t; 

real .a#..n*t; 

BEGIN COMMUNlCATE(-ll); 

BRAAK 1* BOQLEANCT); % MCP RETURNS 1 IF BREAK OCCURRED. 

ENDJ _ . 



**************************************************************** 
PROCEDURE MSG(NO'SEQ); VALUE NQ#SEQ> REAL NC'SEQ* 

.. .£..*. .*.*.** * *.* *.*.*.* ,*..*** * *.*..*^** ********** * * * *_* **************** *_** * *_*_** * * 
BEGIN REAL SlZ,S2; 
REAL STREAM PROCEDURE KCONVC Up Si I ) i VALUE M 

- BEGIN - - 

spsloc n; di»*loc ncgnv; dsjsBdec; di'i«di-8j dsJs/fill; 

DllnLOC NCONV; SII«L0C NCONv; IF 5Cb" ■ " THt-N 

BEGIN..- - _ 



00015C00 
00015100 

00015200 

00015300 
00015400 

QO.Q 1.5300 

00015600 
00015700 

Q.001560C 

00015900 

********00016000 

-..-.- 0.00.161 AG. 

00016200 

********000 16300 

- - 0JLO1M.QQ 

********00016500 
00016600 

QHQ16.LQ.0 

00016800 
00016900 
Q.CLQ.1..7Q.Q-Q 



8CIF SCa" " THEN Si:=SI+l ELSE 

BEGIN DSJ=CHR; TALLY » «T ALLY+1 ; END)/ 

END _EL.aL_lAUJLiiai __ _ „._ _„ 

ni=tally; sh»lcc n; oh*siz; ostswus; 

END PROCEDURE NCONVI 
* 

*»..*.* U..1J.I If ltll.l.lJxl.tlt.ll.l.lllt.tJl.lill..Llt.lt I iJlt.l ULLIIl.IUi.tlI 

REAL STREAM PROCEDURE Ml C Ai IN, 31 Z ) > VALUE N#3U> 
BEGIN 

D.I.* =a; .DSj...?.7Lir:RE.C-CR..Q !UL_Ll*.¥.LQ£_J4i C_S 1 5 5 U CH.RJ_ 

DS»*9 LIT M DELETED."; TALLYIM6* Ml«»TALLYJ 
END STREAM PROCEDURE Ml; 

*«.•«. II l.tl.ltll»IJIl i .LI.il.l.l.l_lxl.ULi.»JA.llJ.il.».l.lX!.tlLlXli.lXi.lJJJJ 

REAL STREAM PROCEDURE M2CAiN>$lZj; VALUE N/SlZ; 
BEGIN 

_._ DI»»A; DSt«7LIT"RECCRD "; S I>=Lpc M QSt=SIZ chr; _ 

DSI*2lLIT" IS NCT IN YOUR >ILE."i TALLYI-28J M2s*TALLY; 
END STREAM PROCEDURE M2; 

.*.».-»..•.. .*..#H....t.' a-*. a.*-*-.*-.*-.*...*...*.-*.* j_j|..».i_«_ft.A..J..l_t.-*_tJI.*.».J„r J. jL.t..*J...»...i. j,. E. 

Real stream procedure h3(a*n#siz)* value n,si<:; 

BEGIN 
QUsA; DS»s 24LTT" IMPRQPER F IX FqR record "' 



»»«»«« 



y. 



si»*loc n; dsjs siz chr; tally»s24; m3J=tTlly; 
end stream procedure M3; 

X 
-*ij-UJ JXJ.i.» J tun ... i « ■ « t » . » j i « » • « ;..« i_j MMiiinM imM i mtm 

REAL STREAM PROCEDURE M4C A* N# 51 Z ) > VALUE N,SW> 

BEGIN 

_ Oil = A ; D SJ a33LlT" MISSIN G GBOUP MARK I N F IX R ECQRQ "J 

Sll«LOC N; DSHSfZ CHR; TALLY; = 33; Mi«TALL'YJ 

END STREAM PROCEDURE M4; 

*1 H « M ' « I 4 « » I I » » » > i > M I I ' » ' I ' » '1 ' » » M » » 4 ) > » > »4> > I I M * M *.M f 4 



********00017100 
00017200 

* * *..**.**.* 0.0 0. 1 7.3..Q.0-. 
00017400 
00017500 

-&C0JLZ600. 

00017700 
00017800 

_ XKU34-794JO- 

00018000 
00018100 

.__ 0Mia2QjD 

00018300 
00018400 

a. ........ Q.0 0185PP. 

0001860C 
00018700 

_ 0M18.6OQ.. 

00018900 
00019000 

i »_. .axu. Q0_9J.910J1 
00019200 

00019300 

00019400 

00019500 
00019600 

ix.^m.POO.19 700 ... 
00019800 
00019900 
00 2 00 



00020100 

00020200 

00020300 

00020400 
00020500 
0002 06 00 

00020700 

00020800 

00020900 



'I r- 
13 



ID 

17 , 

"l 

13 

'lit 

P_ 
22 

23 

24 

2B _ 

26 

27 

28 

29 

30 

3lT 

pjl 
i I 
S3, 

r" 

6 

7~ 
38 
M 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
SI 
52 
53 
54 
55 
56 



' OUR f IX STRING. 

■ Hit M5«*TALLY; 



FOR RECORD "; 



, liltllLnii-tl-lll », t,«_t..A.n_«.J..J 



value n»su; 



REAL STREAM PROCEDURE M5CA#N#SIZ)i VALuE N>SU; 

BEGIN 
DI.IfAi DSl»4lLn w CANNQT LOC ATE Yl 

siisloc n; osi* siz chr; taIly:*, 

END STREAM PROCEDURE M5; 

....* «.* » il UJtU-U.i i mi-U-t-j i t t i.a..t i » t,..t.j 

REAL STREAM PROCEDURE M6(A>Nf !>IZ)i 
BEGIN 

D.I.I = A ; .. .p s_Lg-39yLi_'!jN.UT._£jiQ,g a b _r a.y_M_-f-Qii-iii,y.B Li.x jlk b£.ciihjl_"j.. 

SII*LOC Hi DSI* SIZ CHR; TALLY«*39* MfclsTALLYi 
END STREAM PROCEDURE M6; 

R E A L S TREAM PROCECURE~MVC A# N»SIZT7~V ALUt N»S"u7 
BEGIN 

oh*a; sii» loc n; ds»=siz chr, 



*.».«« .».»».»»..«« < «. .«».«. « ».»»...».« ...» ...»« «.». »«.«««««,.«. 



PI »*A/ 5H« LQC Nj PS » =5 14 CHH> 
DSU25LIT" EMPTY RECORDS DISCARD 
END STREAM PROCEDURE M7j 



ed."; tally:»25; m7j»tally; 



0002X000 

00021100 

HQ02JL2J2C_. 

00021300 

00021400 

MS215M... 

00021600 

00021700 

—Ojojpjijjdaa 

00021900 

00022000 

■ .000£&UML. 

00022200 
00022300 
JlQ022jftJ10_ 



■ .«.«««. ««■«»»».«..»»........ 



VALUE N#SI^; 



» . » « » « > « «.«««» 



R E A L * ST RE A M~* P R C E D t R E Ma<A,N,SjZ); 

BEGIN 
DllsAi ... SXl«UlC-Jti_JlSJJL S ..LZ_£HHA _. _...., 

0SIS46LIT" RECORDS DISCARDED CMISSING SEQUENCE NUMBERS),*; 

TALLYI»46; M8«»TALLY; 

E N.D S TR E AH. PRUNED URE___M8a _ 

%,. ......... , 

REAL STREAM PROCEDURE M9( A* N, 5 12 ) i VALUE N>SU; 

. ..... .B.E.GJN. _, _ _..„ ,. 

di**a; su*loc n; dsi» 



00022500 

00022600 
. T . T Q0022700 



00022800 

00022900 

-OOJQ£KHW- 



DS*k30LIT" 
END-JSJREAiL 



RECORDS 
■F.RQCEO 



S 

TRUNC 

Uft£ J19J- 



iz chr; 

ATED (TOO LONG)."; tALLY**30; M9tsTALLY^ 



a!...,...,....*..*..,.... 

REAL STREAM PROCEDURE MlOCAi 
BEGIN 0H =A; DSla5LlT"W AlT. w ; TALLYI«5; MIQIs TALLYJ END; 



00023100 
00023200 

_Qflfl£3-30-Q... 

,00023400 
00023500 
.00.023.6.0-0-. 
00023700 
00023800 

00083900- - 



); 



,00024000 

00024100 
.0qO24£0jQ.. 



% . . . . . . 

S£Q i* NCONVCSEQ'SIZ); 
IF. .MOgl-UJOL-SZ ..UUU, ( A f SEQjl. 
IF N0*2 THEN SZ » *M2C A, 3EQ' S 
IF NQ«3 THEN SZ 1 *M3C A, SEQ* S 
..IX. JiQ» 1,XH EN _S. Z » ■ ¥ 4 1 MSSAjlSl 



3£- 
IZ) EubE 
IZ) ELSE 
IZ ? E LSE 



,.00024300 
00024400 

00024600 
00024700 
-,.0 00 2,4800, 



IF N0P5 THEN SZ$sM5(A#SEQ»SIZ) ElSE 

IF N0«6 THEN SZ l*M6( A# SEfl* SIZ ) ELSE 

J E -!iflJL7-lHE N S Z H>M7CAf SE fl^S IZ) ELSE 



IF 
IF 



NQ*8 THEN SZl*MeCA# 
N0*9 THEN SZJ=M9(A* 
BJLGIM... SZi.=M UOJ. AJ.i_.S 



TWX0UT(At01*(SlZ+SZ)M 
END PROCEDURE MSGJ 
%**** ****** * * **** ** ***** * 

DEFINE TRB=(IF SB TNEN DS 
DEFINE FTC*Slt«SI+3; CI ,S 
DEFINE CTFsSI»sSl+S; SKIP 



SEQ#S 
SE9»S 
1II = .Q 

); 



IZ) ELSE 
IZ) ELSE 
/....E-NDJ. 



00024900 
00025000 
QQ25 1Q0. 



******* **** **** **************************** 



:«SET 
01+5; 
3 SB 



%*********** ****************** 
STREAM PROCEDURE RfTURN(A,8); 

%********************** ******* 



ELSE OS 
SKIP i 
; DII»UI 



j5Reset;skip sb 

0B'15TRB»; 
+3;i5TRB*; 



)** 



00025200 
00025300 

0,0025.400. 

00025500 
UOW25600 

****0 QOJiSlOJL. 
00025800 
00025900 

00026000 



*********************** 



*********************** 



*************** 
*************** 



btG*N LUCAL AT^BTi 

si »«loc a; di««loc at; ftc; 

b; di!.?lqc an ftcj. 
bt; dii«loc a; ctf; 
at; dii»loc b; ctf; 
sh»loc.b; os<«wds; 



._S.lJ»Lfl£ 

sii«loc 

Sli»LOC 

oh»at; 



**#*00026100 
00026200 

UUU2U400 

nnoi>ft50o 
QQ0.246.5JL 



00026700 
00026800 
00026900 



* • 



I' 

7 

3 



6 

7 

II 
9' 

r 
ii 

h? 
K 

14 
IG 
16 
17 
IB 
'IS 
50 
21 

a 

23 
24 
25 
26 
27 



29 

301 

31 

32| 

3.1 1 

M~ 

35, 

111 

3V " 

j6 

39 



******* 

******* 



********* 



********* 



U 
45 
46 
47 
W 
49 
50 
61 
52 
53 
54 



56 



dijsbt; sh»loc a; ds;=wds; 
end; 
..?,** *************************************************** 

PROCEDURE SWAP;" 

********** ************* ******************************* 

tEGJLN, 

ARRAY TS#TM[0»lf; 

RE TURN (SORT A, TS)/ RETURN C MERGE* TM ) ; 

_.£KD,.JPjBaC.E.D.Ufi£_SLlilA£l_ ___ ..,.„. 

X********************************************************************* 



REAL STREAM PROCEDURE DECQN 

B.E.GI N . .§..1. ! ■ UD£L.Xl_JLLL«LflC 

X************* ****** ******* 

REAL STREAM PROCEDURE OCTCO 
.BE.GI.N... fills** QJXStCCJlCJ. 



V(X); vAlU 

_J_f_Cll__V___J_ 

****** 

nvcxj; 

****** 



e x; 

S_i£_a...il£Ci 



£.NDl. 



X************************** 

REAL STREAM PROCEDURE WHEREIS(X); 

BEaiN.S.IJ«X^.WiiEfi£LS.lsSJ.;...£MDi. 

X******************************** 

RE A L PROCEDURE SI2CA1#A2)J VALUE 
..SllJ.«U2-tL3 3ri5.1r_M. J Ii3lX^JJ<8+j2 
X******************** ************ 
PROCEDURE TWXREAD(SFlG»S£QMQDE);V 



IE SI2CA1»A2)J 

r*** ********** * 

tREAD(SFLG»SEQM 
..I *.*.**. ********************** 

BEGIN 

X SFLG IS TRU 
..JLJ?£_MQ0£ IS 

REAL LINKPTR* 

Real blnkcnt* 

£A&££.BEADJ_M_ 
BOOLEAN CKSEQ 
X...... 



* * •* 

Usui 

**** 

% (i 

* ** * 
A1#A 

* *** 
ALUE 



***************** 

.B_iiCJ.i Zhill. , 

***************** 

ET ADDRESS UF "X" 



**************** 



**************** 



***************** 



*******! 



2; Real ai#a 2 ; 

.L3_L-aJUL3.QJLliJ 

***************** 

SFLG*SEQMQQfc;BOOLEAN SF 



********* 
X GET SIZE FROM Ad 



!******* 



********* 

LG'SEQMQD 



*■*-*-*.*■**-*** .*.* *_.*.* * * * *..*..* ********* ****** ******* 



E IF SEGUENTIA 
.T.RU£..-..1F_,.'!IAP.E_. 
MINPTR»SEQPTR» 
TRNCNT#ERRCNT' 
£RRx£lXC-K*£XLX 



L T fH£ FIL£ 

S£_UJEJi££_ M 



maxptr»ptri#ptr2,lptr; 

SEQNO^N* I*SIZE*SZ64*S*1#T0K 



en; 



00027000 

00027100 
**0jQ£g.72jaQ 

00027366 
**00027400 
:QCJ3..215..Q.Q 

00027600 

00027700 

- QQQJLL&QjQ 

**00027900 

00028000 

QQQ2BiO_Q . 

**00028200 

0C028300 
_ .0.0028-4-0-0 
**00028500 

00028600 

-__.Q0a2azQ.a- 

**00028800 
HS00028900 
Qfl.QiJ9jQ.flO 

**00029100 
E;00029150 

**QJIQ2920_Q 

00029250 
00029300 

0.0-02.2 350 

00029400 
00029450 



_R E. Ai s J RE AM.. PR0CJP_U,RE F I NDARRQW { LI N KPTR. MI NPTR> mA X PtR*PTR?) J 



00029550 
,00029600 

_Q.Q52-_.65Q 



value linkptr#minptr#maxptr; 

BEG.I N LOCAL SV; LABEL L'EXIf; 



L» 



X 

X 
X 
X 
X 

X 
X 

_x 

Sil*MAXPTR; X STA 
IF SC«LEFTARROW t 

JEGI_N_ 

SV*»ST; siisLfl 

si j*lqc sv; si 

IF 3SC"DC THEN 



SEARCHES FOR GR 
LINKPIR IS ADDR 
MINPfR IS ADORE 
MAXPTR IS ADDRE 
RETURNS F°R N 
RETURNS 1 FOR E 
RETURNS 2 FOR V 
RETURNS 3 FOR E 



cup mark in input reccrd>r_tur!\s address to ptr2 
jl5.s of first character belort st art of rcqr d 
ss of first character in input record 

SS OF MAXIMUH CHARACTER POSITION ALLOWED IN RECORD 

J_.J__LQ__.__. .mar K_i_. 1 run cat_e 0. r eco r d_ ) _ 

KPTY RECORD ( GROUP MARK "■ FIRST CHARACTER") 

ALIU RECORD ( GROUP MARK NEQ FIRST CHARACTER ) 
KD OF INPUT C QMK = FIRST CHARACTER ) 



RT AT END OF INPUT RECORD 

HEN X CHECK FOR POSITION OF GROUP MARK 



Sl»*SI-3; DI»« 

if 3SC«dc then 
begin tall_¥ 

IF 



CSV) DlTiPTR2; "OSl-HDT; "X "A GO RES S OF GROUP MARK 
._.»__. oilsLOC LINKPTRi OIl'DI+5; 

EX IT; X TRUNCATED R_EC_jR_Q_; RETURN ZERO 

minptr; on«oi+5; """ " : 



,00029700 

00029750 

.00029600 

00029810 

00029850 

O0G299O0 
00029950 
00030000 

Q0Q_3005_0 
00030100 
00030150 
00030200 

00030250 
00030300 
00030350 



:=Sl+5> 
GO TO 



10c 

X EMPTY RECORD 
!_*_-__ go T o exit; 

SC GTR 



00030400 
00030450 
00030500 



susminpTr; 
go to exit; 
end; x if group mark found 



end; 



9" THEN" TALLY T=3 EL*E TALLY |s_; 



siissi-i; GO TO I 

EXIT! 

FINDARROWt«TALLY; 



; X CONTINUE SEARCHING FOR GROUP MARK 
X RETURN RESULT 



00030550 
00030600 
00030650 
000 30 700 
00030750 
00 030800 
"000 36850 
00030900 
00030950 



6 
; * 

a 

r 

i.O- 

i 
't 1> : 



Di:»MAxPTR; 0S:=lIT LEFTARR'JWi « PLACE MARKER AT ENO OP RECORD 
END STREAM PROCEDURE FINDARRQW; 

REAC STREAM PROCEDURE NEXTQKENC PTR1* PTR2* TOKEN ) i VALUE PTR2J 

X, . 

BEGUN LI1CAL_USjZJ LABEL-. Lm-Z&11} - _. __ 

% PTR1 IS ADDRESS CF NEXT CHA«AC|Ew IN Ii,PuT KECQRD 
% PTR2 IS ADDRESS CF END OF INPUT RECORD 

... *. RETURNS ..Q_E.QH..JflLJLfil« SJ.fiiNiL. _ __ _ _.... 



.«..** • * 



% RETURNS 1 
% RETURNS 2 
.*. RETURNS 3.. 
% t PROGRAM 



FOR SPECIAL CHARACTER 
FOR NUVEKIC STRING ( SEiJO 

EflR...ALEM.ABLl-LC....iLJilNii C !i 

ADJUSTS VALUE TO 4 IF A 



L< 



EKCE NUMBER J 

E_U ". HX-UUEAI JX _„ - „.. 

ELETE REUUEST J 
SH»SC; * POINT TO START OF INPUT STRING 



IB 
'19 



23 
24 
B5 

at 

27 
28 

ps 

30i 

3 r 

32 

H 

36. 

87 
38 
39 
40 
41 
42 
43 

«. 

ft 
l« 

«r 

sol 

SI 
52 
S3 
54 
55 
56 
S7 



to l; end; 

% special character 



SlJsPTRW SII«Sl+5; 

IF SC*" " THEN 

BEGIN SU»Sl + i; GO 
IF SC=ALPHA THEN ELSE 

... BEGIN _ 

DI«=TOKEN; DSls7HT"0«; DS*eCMR; s 
IF SC*LEFTARROW THEN % CHECK FOR E 

BEGIN _ _ __ 

sv;=si; sij=loc sv; si*«si+5j d 

IF 3SC NEfi DC THEN TALLY* B U * 

s.i j *svj....G.o.-..i.a..E.xxJ ..} _ 

END ELSE SII«SI+i; * RlSEQ INDEX IK NOT GROUP Ma 
TALLYI*i; GO TO EXIT; 
ENOi_% IlL_SP££lAk_£JiAfiACl£H , 



Ussi-i; 

ND OF RECORD 

I;=UOC PTR2; Oil" 
NUT END OF RECORD 



DI + 5' 
--■■■-■■■■ 



IF 
IF 



"0" THEN 
THEN 



IF SC LEQ "9" THEN; % NUMERIC TOKEN 



SC GEQ 
TOGGLE 
BEG_IN__ 

svi-si; sii»si*i; tallyim* 

7(IF SC GEO "9" THEN IF Sc LEil "9" 
IF TOGGLE THEN ELSE_JUMP_ OUT* SI l* 

T i« t ally j si » = sv; di i* token; " 

tally:=2; go to exit; 

end;_% if numeric to ken 

x alphabetic token 

DII»T0KEN; DSI*8LIT m 
6„(. IF SCsALPHA THEN IF SC LE( J 

IF TOGGLE THEN ELSE JUMP OUT; DS:*ChR 

TALLYJ»3; 
EXlTt 



00031000 
00031050 

.Q0U.311QC 
00031150 

.00031200 
0-0-0312-50 
00031300 
00031350 
Q.O.QJUQO 
00031410 
0QQ3142Q 

-oxuiiiiao- 

00031450 
00031500 

...0-QJU.L5-5.Q-. 
00031600 
00031650 

-00011X04- 
00031750 
00031800 
0.00.3X85-0.. 
00031900 
00031950 

..QQQ.32jQ.aQ 

00032050 
00032100 

.0.0.0.121.50 

00032200 

00032250 

JJ.O.Q. 3.2 30.0 



then; 

SI+i; TALLY:sTALLY+l); 

D3»«T act ; 



; Di*8Qi 

^."..TMN 



-7; dsj*chR; 

; 

>; 



SVlaSU SI»»LOC SV; DUwPTRH DSJsWDS; NEXTQKENJsTALLY, 
END STREAM PROCEDURE NEXTOKEN; 



tAI.».UJL»J4.»jJ.U..t.lJJlJJ_lJj.i.l.Llj. 



.*_*.-l.-..-»..«......*..t...«.. 

STREAM PROCEDURE PLACEMAR«ERC P TR ) ; V A t. u E 
% 



>. J.*^ » * .»_«. *__*_ _•_»_«. _l._ 



hth; 



.BEGIN. 



diiwptr; DS«*LIT leftarrow; 

END STREAM PROCEDURE PLACE MARKER* 

,.1-JL.iJi ..» *-* X1.UJ . J...t. JLJL.1 .1 t « i UiX»JLllAiaiiliJ.U.LtJXLlJ «t»»«. ,» «»,.«» »» 

STREAM PROCEDURE REFORMAT ( PTR1,S*6<*,5 Zl 'SFLG#SEQPTR,SEQN0»8 ) ; 
% f 

VALUE PTRl*SZ64#SZl#SFLG»5£QPTRfSEQnU; 

BEGIN 

X PTR1 IS AOORESS PF FIRST TEXT CHARACTER IN INPUT RECORD 
* SZ4 IS Nn.OF gHft S Tfl Br TRANSFERRED Olu *<t 



00032350 

00032400 

__. 00.03. 24 50 

000 32500 
00032550 

00032600 
00032650 
00032700 
0127 50 _ 
000 32800 
00032850 

00032 900 

00032950 
00033000 
00033050 
00033100 
00033150 
_*^. * .,. JLflO li^oa.. 
00033250 
.,..00033300 

Q0_013150_. 

00033400 

00033450 

.j^jl.. Q0_023_5Q0_. 

00033550 

...,00033600 

000 33 650 



00033700 
00033750 

JXQ.U3380Q 



li 



3 
'l1 

|ia| 

iu| 

|1S|_ 
il 61 
|l7 
|1S_ 

is! 

I 

21 L 

22 

'21 

q- 

» 

27 
28 
29 
30 
31 
3,2 

m! 

I .«' 
3S' 

:*e 

37"" 

jt 

4u 

/-I 

42 
13 
44 
45 
«« 

4; 
48 

49 
50 
51 
52 
53 
54 
55 
56 



% SZ1 IS NO, OF CHRS TQ BE TRANSFERRED MIJO 6a 

X SFLG=TRUE IF SEG.NO. IS TU Be HLACEO IN OUTPUT RECORD 

.1 S.EQPI.R IS ADD.RES.S il£_.5JiJ^MIla.JlUiLl.llim_i.N...0.ulP.UJ JiECIlRO 

X SEGNO IS OCTAL VALUE OF SEQUENCE NUMBER 
* "B" IS OUTPUT ARRAY 
HUsflJ. DSlmaUI^.^-SXl*Hi. -USL5 9..W.U.S.J 

si;=ptri; di*«b; 
sz64(2cdsi=32chr)); ds$=szl chr> 

..SELfii ...S I J •LOL §£.IJ^JLJ2J_l»&EiJLETJli Q* ?..?..&££. C ) ; 

END STREAM PROCEDURE REFORMAT* 



OELINEL MA.IC.ttIMAl£lilAfcAI.CM21* 

REAL(B001.EAN(MATCH1) EQV BOOLEAN (M A I' CH2 )) = R£ AL C NUT 
X ....... . . 



FALSE)** 



.AX£J.iaaXJttJ..LaQl_l: MAKJE_..SAit£ .ARHAlS-JiliiaOJ _ 

MINPTRIaWHERElS(AC6]); * ADDRESS OF START OF INPUT RECORD 
LINKPTRI*(MINPTR-1)&7C30J45I33' PLACEMARKER (LINKPTR >l 

sE.ajp.ifii »wherj:j..s lbi£J_ll 

CKSEQ:»SFLG AND NOT SEQMQDE; 

MAXPTRI*MINPTR+9+ 
ILL NQT.SF".L,G OR CSF^G AND NOT SEOMQUE) THEM I E.L.SE J) A 

PPTR |x PATCNT »■ PREV t« "1J "' " ~ " — — 

REAQlNt 

R E A D C T W X I STOP IaIIaAI * .3 ) > P T R I S * M LN P T K ; 

IF ( N « * F I N D A R R w C L I N K P T R /M I N P T R » M A X H T R , P T R2T ) « 3 " f h E N GO T E X I~T T 

IF N=l THEN X EMPTY RECORD ( GROUP MARK ONLY ) 
„- BEGIN 

blnkcntl»blnkcnt*i; go to readin/ 
end; 
.xf_.6l»jd .then. x. irun.caied. regard ._ 

BEGIN 

TRNCNT«sTRNCNT+i; PTR2:*MAxPTR* 

EN.Qi 

CKSEQ THEN X 



IP CKSEQ THEN X SEQUENCE NUMBER ■ SHOULD 
BEGIN 
IF (NI*NEXT0KEN(PTR1*PTR2# TOKEN) ) 

BEGIN " 

err: errcnt*=errcnt+i; go to readin; 
end; 

if n ■ 1 f h e n "% s p e c i a l character 

if token n£q "*" then 60 to e«r fcls£ x only 

BEGIN Nl«3; GO TO FIXcK; END* *_MaRK aS 
IF N « 3 THEN X ALP H A B E f f C " S T R IN&"~ 
IF MATCH(TOKEN»"FIX " ) THEN 
BEGIN 
FlXcxiTF 



APPEAR IN INPUT RECORD 
THEN % BLANK RECORD 



"*" accepted 
'fix" reque st cn«3) 



(NEXT0KEn(I»TRI#PTR2#T0kEn>) NEQ 2 ~ T H [FEOl WT~n W 
PTR2l=(IF (Il«PTR2.C38l3])*7 THEN PTR2t C 33 U 5 J+l ELSE 

_..CPTR2iCl + l>C30U5J33)>J_X_K_EEP_6RQyp MARK IF A FIX 

END ELSE GO f6 ERR; X ALPHABETIC STRING NOT A "FIx M ~ 

seqnoi=token; 



NUMERIC 



IF 



N .■ 2 _1 HE N_ 
BEGIN 



X NU MERI C 



-S.TR.lNG.. 



LPTR«»PTRi; 

- lL-^XIQKENXLP_IBj..Pia2iL 

IF LPTRsPTRl THEN N:=4; 

end; 
end x_ if ckseq 



:N)sq THEN _ _X__GR Q\j P JMA RK_ 
DELtTF. REQUEST 



ELSE IF SEQMODE 
IF N NEQ 4 THEN 
BJLGJN. _ _ 



THEN SEQNO{*CBASE$»tiASE + lNCR); 
X NQT DELETE REQUEST 



00033850 
00033900 
OuO 339.50 
00034000 
00034050 
....0O.a3Al.Q0. 
00034150 
00034200 

...00 0.342,5.0 
00034300 

.00034350 
.00.034400 
00034^50 

.OUO345OO 

0..Q0-3A5-5G 

00034600 
00034650 
000 34700. 
00034750 
00034800 

. Q Q..0.34 850 
00034900 
00034950 
.00.0,3 5 o_Q.Q 
00035050 
00035100 
0.0035150 
00035200 
00035250 

-aaiuiaaxi- 

00035350 

00035400 

O0JL4.54JLQ. 

00035500 

00035550 

00O356Q0 

000 J 56 50" 

00035700 

00035750 

000 35800 

00035850 

000 35900 

00035950 

00036000 

000 36050 

""oooTmoo 

00036150 
00036200 

00036250 
00036300 
0003 6 3 50 _ 
00036400" 
00036450 

.000 36 500.. 
00036550 
0C036600 

_QfiOJ_6650 



2 1 
3 

si 

6 

7 

el 

9 

10 

ui 
12 

13 

1«< 
15 
16 

17 i 

18 

19 

20 i 

21 

22 

23 { 

24 

25 

26 4 

27 

28 

29 I 

30 

31 

32 i 

33 

34 

35 i 

36 

37 

38 4 

39 

40 

41 I 

42 

43 



00036700 
00036750 
00036800 



44 

45 

46 

47 

48 

49 

50 I 

51 

52 

53 I 

54 

55 

56 I 

57, 



m 



# 



181 

I- 

21 

22 " 

23 

24 

125 

IS 

27 

28 

23 

f 30 
31 

32 

33 
34 

06 

I 37 
Zii 

39 

40 
41 
42 



• 



46 
46 
47 
1*8 
49 
50 
SI 
52 
53 
54 
55 
56 

6Z_ 



SlZEI«CPTR2,[33.15]-PTRl.[33l453)*8 + HTRi!.[30l3]-PTRl.[30l3]; 
SZ64i»SlZE,C36l63; SZli«SlZE,U2l63J 
. REFORMAT (P.TfU.* SZ.6JUS4 1/ t.SF4..Sk_AML LN_fcEfl__3J US.tOPIR#.S-EOJsUI*BJi 

writecpatch#10*8c*1)^ 
end; 

If &FX& IKE-IY A_S£flU£K.IlAL. JJt£E-.F-iLE _ 

BEGIN 

PWORD» = SEQNOSNC1 .45:3]&(PAtCnT|sPATCnT*RlAl(N NEQ <OH4:32*16]J 

PPT.R..«,..*PPTR ± U , _ 

MERGTOG i* MERGTOG OR CN NE>J 2 ) ; ~* DELE~Tt" («)~0R FIX (T) 

SORTAA[PPTR, [35«8]#PPTR.[43J53 3»»PW0RD; 

_. IF. NQT ..SE.QMQ.DE THEN IF SEQNU LEQ PREV ThFN SORTQG 

PREV I* SEGNO/ 

END ELSE WRITE(WRKFIL#10»BOJ); t 0ATA fliE 

TQ REAP J N; 



• 3 



■ IRUEJ- 



GQ 

EXIT! 

TWXQUT(A[03#0#1); MSG<10>0); % "WAIT." 

IF BLNKCNT GTr THEN. MSQ( 7p gLNKCNT ) I % "EMPTY B&CQfiDS filSfiAfiOED 
IF ERRCNT GTR THEN M5G< 8,ERRCNT ) > * "MlSSlNG SEQ. NUMBERS" 
IF TRNCNT GTR THEN MSGC 9, TRNcNT ) > % "TRUNCATED RECORDS" 
END PRq.CED.yRE. twxread; ._ 

BOOLEAN STREAM PROCEDURE F IXCHKC Al , Ql ,Q2#M ,N2, A4 ) ; VALUE Al,A4; 

*.*.*.* *.**.*. .**..*** ***** **_******_******'**************'*****'*** * * * *****#*****! 

COMMENT Al IS ADDRESS""oF~A~£'oy* """""" 

01*02 ARE START/FINISH ADDRESS OF "ULD STRING", 
.N1'N2 ARE START/FINJSH ADJURES S_QF__" NEW SThJjyG". 
A4 IS ADDRESS OF END OF INPUT RECORD 
ROUTINE EXAMINES "FIX" SYNTAX AND ESTABLISHES VALUES FOR 

P1'Q2,N1 AND N2j _ _ 

BEGIN LOCAL SV,D>A3* LABEL Li*EXlT; 
SllsA4; 2(40(Sll«Sl-i; IF SCsLb'FTARRCW THEN 
. LI* A3 1 sSii_§jjLEAjUL.D I .» »LO.C-JU 



00036850 
0GU3690Q 

H.Q 0.3.6 9 50 

00037000 
00037050 

-.-aauiztxw. 

00037150 
00037200 

.. 00.031.2.50 
00037300 
00037350 

.....0_0.0.17_4Q.Q 

00037450 
00037500 
.-0.003260-0 
00037650 
00037700 

...HflPlZZSfl 

00037800 

00037850 
_. 00 SLZ.7.1Q..Q. 

***00038000 
00038100 

**j*0O0.3.a2.Q0. 
00038300 
00038400 

00038.§.0.q... 

00038600 
00038700 

000 3 88,00, 



UMP OUT 2 TO LD); 



OlteLOC as; 
REPLACEMENT 



01 i*DI + 5; 



20(IF SC EOL " " THEN SI*«SI+1 ELSE JUMP OUT); % SCAN TO ChAR 
IF TOGGLE THEN GO TO EXIH % EMPTY FIELD 

D I J ■ LO.C DJ D.II.5 DI.+ ?./._ H&JL££hRi_ JL_L A„V£. _Q£ LI ,M I J EE 

IF SC*D THEN GO TO EXIT; % NO STKlNG 
IF SC * LEFTARROW THEN 
BEGI.N 

sv»Vsi; siiaLOc sv; iiis'si+s; 

IF 3SC=DC THEN % LEFT ARROW 
BEGIN_ 

sii«si*ii svissi; si:=luc bv; oi:=oi; 
si;«?Sl + l; &v:«&i; Si:=lOc iv; DH=C2; 

— SU.. »loc sv; nnaisii; ds.*hds; sti ssw; _ 

si **si + i ; sv.»si; sijsloc sv; dh»n2j ds»*wds; 
tally»«i; pixchkistally; go to exit; 

EN.D,L£Fi,.ABB.aW-.Jl£PJ>AC.EM£kIi 

snssv; 

END; * IF LEFTARROW 
SVLsSJX_S^ : sSVj_ * START OF OLD STRIhG 

63CIF SC*LEFTARROH THEN X CHECK FOR END OF RECORD 



00038900 
00039000 

..oxiojtaoj.0... 



us J » WD sT 
0S:=nds; 



si :=~s"v; 



00039100 
00039200 

..Q..O.Q jsiqo 
00039400 
00039500 

-QMASj6jQ£L 
00039700 
00039800 
00039900 



00040000 
00040100 
,00 040 200 
00040300 
00040400 
00040^00 
00040600 
00040700 
OOO aOflQO 



BEGIN 

sv*«si; 



si»»l oc sv; si;»si+5j pn«uo c A3; 01 1 » d 1 + 5 ; 



IF 3SCDC THF.M JUMP PUT TO LXIi; 

si t«sv; 

end; 

if sc neq d then m«»si+1 else jump out); 
if toggle then go to exit; % missing 2nq delimiter 

JyixSl; SI tPLOC Syj PJLLMJ I QSIbwOSj SH»Sy> *END OLD STRING 



00040900 
00041000 
. Q.Q 0.4.1 100_ 
00041200 
00041300 
Q00.M40_Q_ 
00041500 
00041600 
00041 700 



2 

3 
4 
5 

6 

7 



10 

111 

12 

13 

14 1 

15 

16 

'7 | 

18 

19 

20 ( 

21 

22 

23 { 

24 

25 

26 ( 

27 

28 

29 ( 

30 

31 

32 4 

33 

34 

35 { 

36 

37 

38 ^ 

39 

40 

*l| 

42 

43 

44 % 

45 

46 

47 4 

48 

49 

50 % 

51 

52 

53 f 

54 

55 

56 % 

57 



H 

91 

ilOl 

'll 
I 

14 

|,5 

lie 

17 
18 
19 

ko 

21 
2i 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
*4| 
I3S 
1 36 

I 37 
,38 

38 



42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 

*3 



Si:-Sl+l; sv:=Si; sis*LQC 
63(IF SC*LEFTARROW THEN % 

BEGIN 

sv:«si; sijsloc sv; 

IF 3SC-0C THEN JUMP 

end; 
sii-si+i); 

Si:sLOC SV; DIi«N2; DS:swds; 
tallyisi; fixchk»_tally; 



SV; D I ! =*N1 > DSjs^oS; iilJsSV; % NEW STRING 
CHECK FOR END OF RECORD 



S I i * S I + b ; D I * * L C A3 ; o I :■ 1 + 5 i 
OUT ELSE SII~SV> 



* END NEW STRING 



EXlTJ 

END STREAM PROCEDURE FIXCHK* 

....I*.**.***** * .».* ********* **** ***************** *************** *jr ***_****_**** * 
BOULEAN STREAM PROCEDURE. L C A T E ( B 1 » _ 2 , 8 3 * B 4 , L >~Q X * 's _ Q V7 

I********************************************************************** 

Cfl.MME-N.i--.ai IS..AO.DRES.S nL.-B.LQU 

n „ T-. .„*„*•„.. «- „,.„_ „_ "EXISTING 




ATA 



VALUE Bi#B4*L#Dl#SZ0; 

BEGIN LOCAL SV#0; LABEL LWL2'EXIU 
5.U "fli I 01 : ■ULCL.IU .PILs.0l±7J MfsCHRJ X...&A .¥£._* I R.ST .CHARACTER 

siubi; 

2CLCIF SC*D THEN 

BEGIN _ 

svi«si; di»*oi; if szo sc * oc then 

BEGIN 
- S 1.1 ■LD.C....S.W.1 . CIJ«B2JL_aSlilltQ5.i_Jllli£_nLLl..i. 

end; 
sh»sv; 

. _ END I _ . 

sh*si + d); 
go to exit; 
..UL.f :... s i_i « b « ; s x * * s x* i ; 

2(L(IF SCa« « ThE\ 

L2» siiasi+i; svissi; 



.TO LL 



oou<4iaoo 

00041gOO 
.004.4200 Q 
00042100 
00042200 
...00.042.3.0.0 
00042400 
00042500 

. 0.0042. 600. 
00042700 
00042800 

*.QQ_L__t___CL 

00043000 
♦00043100 

...XLoaiLiaafl ... 

00043300 
00043400 

QJ10___500. 
.00043600 
00043700 

. J?..00 43800 

00043900 
00044000 

QMMiO.0... 

00044200 
00044300 

0O04.il.40fl 

00044500 
00044600 

_.QQQ 4.4X00 



SU=Sl-l ELSE JUMP OUT 2 f U L2))* 
_. SIl-LOC SV; DIIsB3* DS:*WCo; 

- TALLY 8=1.; .L0jC.ATI.t=jALLYi. 

EXlTt 




00044800 
00044900 

__ai__5ll____ 

00045100 
00045200 
OQ 04 52 00 

60645400 
00045500 

0_0 0.4^6.00... 

00045700 
00045800 

»QnQ45oon 



B 

B5 IS ADDRESS OF BC20], 
.SZO IS LENGTH OF "EXISTING" STRING* 
Nl IS STARTING ADDRESS OF REPLACEMENT STRING* 
SZN is LENGTH OF REPLACEMENT STKING* 
SF LG I S _IRU E_1F _NQT J Y P E OAT a FILE. 



00046000 
*00046l00 
._aQ04.62.QJl 



ROUTINE REPLACES "OLD" STRING WITH "NEW" STRING FOR "FIX"; 
VALUE B2»B4*B5»SZ0*N1*SZN#SFLG; 
BEGIN LOCAL SEQ; 



00046300 
00046400 
000 46500 
00046600 
0004670C 
00468 00 



SFLG(SltsB4; DII'LCC SEO; DS:=WDS); % Sa\,E SEQUENCE NO 

dii»64; 2(DS;a40Lir" " ) ; 

JLL__L__J__AI >M SI*SZC; 011 *85; 2C0S :s4QCHR ) ; 

sh«ni; bn»8B2; ds?*szn chr; " 

Sl»«iB5; 2CDSl«40CHR); 

sflgcs n «l oc seq; ph»B4; ps.cwosj; _ 



00046900 
00047000 
000471 00 



00047200 

00047300 
00047400 



00047500 
00047600 
00047700 



•H« 



2 < 

3 



10 
11 1 



i; 

Id 

U 

I s 

6 

\r 

s 

""! 

u 

'14, 

Ifi 
1/ 



70I 
2lj 

iJ 

Z3| 

:" 

27 
28 
29 
30 
31 
32 

r 

36 

t» 
38 

39 

40 

41 

42 

43 



(49 
50 
61 
52 
53 
54 
55 
56 
57 



END STRE 
%********** 

. ._§!«£ AM PRQC 
%* ********* 

COMMENT Al 

.M.JS ADORE 

SGbH IS TRU 
SFLG IS TRU 
ROUTINE REF 
VALUE A1»B1 
BEGIN LO 

- D.11 ■__._._ 

SFLG(SI : 
DH=LOC 
8C IF SC= 
DS«*Llf M 

sh*bi; 

SQSHC 

2(4Q( IF 

BEGIN 

- LLSE-.D.SJ 

JUMP OUT 

2(DSS«40 

EXIT I 

END STRE 
%********** 

..%.*. .******** * 

eofmark:«io 
A[U]j»o; ai 

JlLSKMAlIXli 



AM PROCEDURE EDITJ 
******* 



**************************************************** 

E D.U LR£ QUI F.C..R MJJJ. Ai.*Ji_.*.BJL>. ..-_ fiLShi. S f_L.G.l ; __ 

**************************************************** 

ESS Of At03» 31 IS ADDRESS OF H[03# 

II J ._ 1 1 1_MT_JLIP _U__I A _ ___£ _jaliQ _1_ I£_H£t_OAlAi. 

quashed" option set, 
t type data file* 

record fo r o u t put to hemqte station* 

h*sflg; 

seg; label exit; 

L w — rj_SxL» A 1 / J3..S±gljlD.S,i„ J)X.t..*AlJ 



******** 

IS ADOR 
.SS. ______ 

E IF "S 
E IF NQ 

QJ_i_A__L_ 
*B4*SQS 
CAL SV, 

_.__■____ 
*BH', .01 

seq; os 
t. .1 THE 



00047800 
**0004790C 

- Qfl____.Q.Q. 

**000a8l00 
00048200 

05.04 8 15Q 

00048400 

00048500 

_..J______._.Q 

00048700 
00048800 
__0_2iL___}__ 



:=LCC SEG/ DSjswDii % SAVE SEG« NUMBER 

»= 7 fill; sijsloc seg; di»*ai; 

N SJ »■___♦______ UiJjsCHR).; 

■ Di; DIt*84; DSi«8LlT" "J DH»SVJ; 



Sc*" " THEN 
SIl«SI+i; IF SC NE'J 

5CHE.111 _ - _ 

TO EXIT); 

chr); ds:sl,it" "; 



THEN OSS SLIT 



END 



LINE»=DECON 
SNAME S* " 
iIiii._Lr-._ALl 



AM PROCEDURE OuTFORmaT* 

*************************************************** 
* * * * * * **_*** * * _*.* *.**.*_*.* *,.*.,* *..* *.* **.*.**.,* *.*,*.*.*.*.i.*_t*.,**.*_t,*,.**. 

OOOOOOO; 

}«WHERElS(At03); % SET "a" ADDRESSES 

A____LCn H MON__-_-_ET E__£_J___C____ 

V(A-l),U0i8)); % DECIMAL VALUE OF LINE NO 
" & " 1 S ».' C 6 ! 36: 121 4 LlN_Ll8:3C:i8]> 

l_X_JL_l=_i.__.___N____Jj_^^ __ 



******** 

*...** *.*.*_*.* 



00049000 
000^9100 
OQ 04920 
00049300 
00049400 

__Q_J___5__... 
00Q496C0 
00049700 

QQ049800 

00049900 
OOObOOOO 

- 0OO.5 0.0-0-. 

0005020C 

**00050300 

*._ 0.Q..05 ,04-O.a 
00050500 

00050600 
onQ5Q70n 

00050800 
00050900 

aa_-»iooc- 



BtO] S _0; B1«=WHEREIS(B[0]); * "6" AOURESSES 

..BA.rrWH.EM I. M 

RECSZ»= 40 - 4 x REALCSFLG); % U2 RECORD ut.NGTH 
USER :s A[2Ji 



.IF ^EOMODE, 

BEGIN 
INCR *» 
BASE »* 

end; 

A4 Is Al + 

(IF NOT 
FILL NEW TAB 
FILL PATCH 



:= A[7] GTR ThLN * S_UU_NCE muLE Lht-HMllGN 



AC8 , • C21 : 27 j; J 

At7].C21*273 - 



sequence 
incr; 



INCREMENT 



00051100 
00051200 

0iL0.51.3-Q0 
0005140C 
00051500 
00051600 
000*51700 
00051800 
0005 1900 



9 + 

SFLG ORJSFLG AN__N0 T_ SEGMQQE) ThEN 1 ELSE ) J 
WITH SNA^F & "T"-12:42:6.,USER> % "IT" ] AB FILE 

with sname^useR; * "is" patch file 

L!.!-_ l w R k f ll ... w.lih_._.n a mf*user; _ "IS" WORK F IlE „ . _ 

FILL SOURCE WITH A[3]*USE^; * SOURCEFILE NAME 
IF NOT SFLG THEN % TYPE DATA FIlE 

.____U n 

DO BEGIN I TRANSFER RECORDS FHUM SOURCE* IF ANY 

READC SOURCE* 10* AC *3 )C£OF 

W_J_E(WRKFIU__0_A_*J_) _ __ _ _ 

UNTIL 



0005200C 

00U.201C 

000 52020 

00052100 

0005220C 

.__0.__.____. 

00052400 

000525CC 

000- 2600 



END 



false; 



EOFi: 



CLOSE (SOURCE); TWXREAD( FALSE* FALSE); 
LOCKCWRKFIL**); 



00052700 
00052800 
00052500 
00053000" 
0005310C 
0.0.053200 
00053300 
00053400 

00054700 



_ • 



in« 



B 

h 

13 

Il4 

16 

10 

17 

ilfl 

'19 ~ 

'JO 

[21 

11 

23 

2* 

2b 

2« 

27 

28 

29 

30 

31 

32 

33 

» 

m 

37 ~ 

38 

39 

to 

41 
42 
1j 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
56 
56 



'71'* 



*L 



GO to exit; 

END; % IF TYPE DATA FILE 

..ZKX_EADCSF_LU. S£____1D____ 

IF NOT SORTOG THEN GO TO STaRTMe.GE. * NO SORT REQUIRED 

* , START SORT ROUTINE...... 

_______ R _* If PPTR GTR._5±__T__EJ_ J_l.__.__j___L.._e„_H._ 

FUR I := STEP 32 UNTIL AAPTR 00 
FOR 'J J= STEP 1 UNTIL 31 OU 

.SQNlAII+_„:L._i____L^ 512 ___u _LA_„ 

IF AAPTR GTR THEN SORT. 0> AAPTR ); * CALL SORT ROUTINE 
FOR I »= STEP 1 UNTIL AAPTR DO 

_3_&T_A___.__Lt I ________ i A I.4il3J_l_Ai_aaKTAI.Ill_JL..Nl.QVE..eA£iL..ID..aORIAA- 

WHILE AAPTR LSS PPTR CO % SORT/ MERGE REMAINDER IF PpTR GTR 511 
BEGIN 

M2 ?..= C_U __A_P.I._.+4 .1. __5JLU _ - _ _ _____ 

IF N2 GTR PPTR THEN N2 Is PPTRJ 
FOR I J- N_ STEP 32 UNTIL N? UO 

FOR J « = ..STEP i _.__II__J_L..._U - ..„ 

S0RTACI+U-N1] »= SCRTAA[ I..3558J * J li * MU^E TO SURTA 
IF (N2S-N2-N1) GTR THEN SURT(0,N2); 

~1A L._ IA__.L_ _i LBI1 _Ls___U__ tli_l____________] - __._______A_ - 

ASEQ :* (AWORD s = SqrTaCIA]) .._1»273; 

AASEQ » = CAAWDRD ts SORTAAC IAA. [35.83 • IAA.t 43 »53 3 > .C2U2' 

..,,_. - DO... BEGIN _.._ __ ...-..- ; , _ . _ 

IF AASEQ LEQ ASEQ ThEN * USER OLDEST ONE FIRST 
BEGIN 

— -QR.IB6..L.._I_B I = IflfltlJ ..__..____ ._J_____Ld__ I _3.L_J _..____ AA_4__iD___ 

IF IAAJslAA+l GTR AAPTR THEN AASEQ » B _G. MARK ELSE 
*aS'EqI_(aAW0RDI-SORTaAI IAA.C35»8J * IAA,U3»5J 3 ) .C2H27]. 

._. .end : „ _. ...._ _ _._... . . 

ELSE 

BEGIN 

— - . S_l_.TflB.I_ .LLBJJ J_ J Bfl.ilJ___.__. 1 1_____J_____A_L__ L. . J_JL_L___U__Q__ 

IF UtwlA-H GTR N2 THEN ASEQ* -.-.FN ARK ELSE 
ASEQ 1= (AWORD »« SORTaUAJ) . [ 2 1 : 1 7 3 ; 

_... end;. _ .__ 

END UNTIL ASEq = EOFMarK AND AASE. = EOFMaKK. 
AAPTR J= AAPTR ♦ N2 + 1* » TqTAL NO. IN SQRfAA 

E.Q.P.. I. ?. = _... STEP 32 UNjlL_j.Af_.T__ D _ * M OVE BACK TU SQHTAA 

R_AD(SORfifit_.[3b»B3 > *3 t 32 , -QR. AA.T, C 3_"« 8 3 . *})} 
END WHILE STATEMENT; 
SWAP; X RETURN CORE SPACE 

X 

STARTMERGEJ 

_*___* •_••••£_• _ _ _ _ __ 

SORf AA_ fPPfRispPTR + 'l )', t 35 * « X * PTTHTU3 f5 ]" j ~i -ToFMRKi ' 

ReA0(S0URCECN0],10»T[*])CeUF«]; X TEST £UF POINTER 

G_0 TO skip; _____ •__ _ __. 

x • . . , 

EOM. % NO RECORDS IN SOURCE F1 L L C EOF POUTER - -1 )j 
% 

TF ""NOT ~ f "SOR TOG~pnMERGTOG T" fHCN - * - NO A L fER AtTo NS~ "RE Q U I R E ~~"~~ 

BEGIN 

_______ SOURCE)/ LUC kCPAtCH. * _; __ ______ wURKF ILE 

NCO]s*PPTR-i; X aCKKFILE EOF PO_.TeK 

FOR I»-0 STEP 1 UNTIL PPTR CU _ c* U I u {.: Tm fill 

BEGIN _ 

IF NPTRl»NPTR+l GTR 29 THEN X WRITE TABFIl'E SEGMENT ON DISK 
BEGIN 
WRITE (NEWTA6. 30. N!*3)> 



0005.600 

00054900 

C_.fi_.__4Q._ 

00058500 

000b8600 

_____ .5 8 ZQ.C 

0005880C 

000-8900 

J____.9.Q0.Q. 

00059100 

00059200 

jiao. __>____. 

000_940C 
0005950G 

..aooj3__6-oa. 

00059700 
00U_9800 
_____£L9_LQ___. 

00060000 
OOO-OlOC 
.0OU.D..02-0-C 
00060300 
00060^00 
_______ DSjCUJ-.. 

0006060C 

00000700 

0_.0._.Ofl.QC.. 

00060900 

00061000 

_0*0-U4XX0- 



00061200 
OOUoUOO 
J___L_1A__L 
00061500 
00061600 

QQ._L_ 17.00 

000G180C 

00061900 

g_Q.062_.00. 

00062100 
00062200 
00062300 



00062400 
00062500 
0_0U6_2600 
"00062700 
00062800 
0QQ62900 
00063000 
00063100 
00063 200 



00063300 
00003400 
00063 500 



00003600 
00003700 
00063800 



2< 

3 

4 



00003900 
00064000 
00064100 



m • 



9 

,111 
1- 

l" 
13 

'■!■ 

\;| 

ha! 

19 
20 
121 

h 



r 

as 

39 
40 
41 
42 
43 
44 
45 
46 
47 
^ 
49 
50 
SI 
52 
53 
54 
55 
56 
i>7 



NPTR: =o; 

end; 

NINPTR..3:, = SQRTam.,^ lCi.v32J.io]; 

end iloop; 

WRITE(NEWTAB*30#NC*J); LUCKC NtrtT Ab, * j> 

go to_ exit; ._ .., .._ ... . 

END/ * IF PATCH FILE BECOMES aQRkKIlE 
* • * • i 

Si_I.Pi .._ .__ _ _ _ _.,,.,,. 

% • i • * 

PSEQi«CPW0RDIsSCRTAAE0»OJ ).t21*2n; * 1ST SEC NUMBER IN "_P" FILE 

.C_D.D£:=PKQ.BQ. J [l.:j.lJ EPJALaQi _ _ 

NCT 5= -i; 

REWInd(PATCH); PATCNT :» -1; 

T LOOP I 
% 

RE.ADtSpURCE'lO'TC*] K£.0f5._ 7 ..... 

TSEQ := OCTCONV.T.93); 

GO to compare; 

,...*..f_ •_*...». . _ 

EDF5J TSEQ »= EOFMaRK; """'" 

% • • • • 

..*..*..*...§..••..•• - _ .. _ _. 

COMPARES 

% 

.If.. TSEQ LSS PSEQ THEN % NQ CHAis;GE Tu THIS RLC.QfiO 

BEGIN ' """ " ' "~~ 

WRITECWRKFIL>10>T[*] )i 

...eqltogjstrue; se8: = tseq; go_to _wri tejnEw; 

end; 
eqltog j* tseq=pseq; % nefc record stq, batches old 

JLt-tJLa.jt.Ji 



000o430(j 
QQ.C 6.4 .4.0.0... 
0000450C 
00064600 

.00 Q.64 7.Q.Q 

00UO4B00 
0C064900 

ojau-oioo-o 

00065100 
000b5200 
00065^00 

00UO54G0 
00005500 
..O.QpQ56iHL. 
000O5700 
00065800 

j___p_ft______Q_ 

00066000 
000C610C 
J3.Q0o.6_2.Qii.. 
00066300 
00066400 
-0Q0.66SO.0 
00006600 
00066700 
.0 00.66800 

00066900 
00067000 
QQ06 7JJ_Q,. 



PCYCLE' 

IF PS.EQ=EQFMARK THEN Q.Q_ T.Q...£NQM£RGE> 
IE C0DE=4 THEN % DELETE CODE 
BEGIN 

bfull:=false; 



00067200 
00067300 
Q0 0674 .0JL 



PREVJ*PSEO; % SAVE CURRENT PSEQ NUMBER 
PPTR»*PPTR+i; % GET THE NEXT PSEU NUMBER 

PSEQt«(PlNOROtaSORTAACPPTR.C 3a»5] >PPTR.i:^3»5l3 ) __[2___.__;j 

CODE « *P WC3R0 • C 1 > 3 i ; 

IF PSEQ=PREV AND CCDE=2 THEN GO PCYCLL; % NEK RECORD FOLLOWS 

IF EQJ_TOG THEN GO JO TLOQP ELSE jU TO CUMPAREJ __ 

END; % IF CODE * 4 
IE C0DE«3 THEN % Fix CODE, CHECK FOR RECORD FIRST 

..... .BEGIN _ _ 

IF NOT CEOLTOG OR (.FULL) THEN % NO SuCh RECORD 
BEGIN 
MSG(2*PSEQ); % "NOT IN YOUR FILE" 



00067500 
00067600 
00067700 
00067800 
00067900 
000 6800 
00068 IOC 
00068200 
0006830C 



go to nextp; 
end; 
end; _ _ _ _ 

IF P'ATCNT '= PATCNT + 1 NEO PwORQ . C 4 « 16 3 T~H_"N X OUT" OF ""ORDER 

READ SEEK ( PATCH t PA TCNT » sPWQRD . 1 4 » 16 J ] ) ; 

If CQDE..NEQ 3 THEN * NOT A FIX COMMAND _ 

BEGIN 

READ(PATCH,10#BC*3); 
BFULL »» TRUF; 



00068400 
00068500 
00 0686 00 
00068700 
00068800 

00068900 
00069000 
00069100 
00069200 



00069300 
00069400 
00069500 
00069600 
00069700 
QD069800 
00069900 
00070000 
00070100 



% 



m t 



r 



13 



9! 

('»" 

"i 
1?l 

131 

14 
15 

1B 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 



32 

33 

34 

16 

36 

37 ~ 

30 

39 

40 

41 
42 

43 

44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



go to nextp; 
end; 

filADx.PAT.Ch#iQ#AX*J.)J _ 

IF NOT FIXCHK(A1>01*02>N1,N2»A4) THEN * "FIX" SYNTAX ERROR 
BEGIN 

m.sg(.3*pseq2j * ^improper fjx" 
go to nextp; 

end; 

IF N2.C33J15] GTR A_4 THEN X S^OyLD ttU T jlE _H£R£ 

BEGIN 

msgc4>pseq); x "missing group mark" 

_ _.gq. tq. notp.; ... 

end; 

IF NOT BFULL THEN * GET RECORD TO til "FIXED" 

B.E.GXN. 

M0VE(10*T#B)J 

bfull>=true; 

end.; .. 



00070200 
00070300 
0.00 7.04 .00. 
00070500 
00070600 

oo_gi.oz.Qo. 

00070800 
00070900 

..Qfl.OIiflO.0_ 
00071100 
00071200 

_QflO £13.0.0 



IF NOT L0CATE(Bl#B2*B3»aa#RECSZ#01#ii.0isSJ2:C01»0iJJ) THEN 
BEGIN 

J4S.6..C5.II P_SE.ft.il * "CAjvNUT FIND Fix STr^nG" 

go to nextp; 

end; 
...j£_ si2.c b3/.b 4 ) l ss c.sz.n? *s.i.z iml * 1.2 ))" szq. then 

BEGIN 

MSGC6*PSEQ); X "NOT ENOUGH ROOM huH FIX" 

_ go to nextp; _ 

end; 
edlt(b2#b4#b5#.s20*nl#s2nfsflg)# * mtplace old string with new string 

"NEXTP |" "% LOOK AT "NEXT ""TP'~WOlfO " " " 

-?ALV..L S .PSEJJ_._X_SAVE_CU 



00O7U00 
00071500 

...0.0JJ.LL6-QQ.. 
00071700 
00071800 

OOflliSQO. 

00072000 
00072100 
000 7.2200 
00072300 
00072400 

...0_0J)225-QO ... 
00072600 
OC072700 

...00022.800... 
00072900 
00073000 

__DJ_OL3.iQ._a. 
00073200 
00073300 
00073400 



ppTRi«ppTR + i; X CHECK NEXT "IP" WORU ~~ '~ 00073500" 

PSEQ»»(PW0RD|=S0RTAACPPTR.C38:5J*PPTH.U3j5n).L2l:27.; X NEXT "IP" MO. 00073 6 00 

C0DEl«PW0RD.ttt3]_; 000/3700 

IF TfTEv'^P sTB t'HeW GIT f 0""Pc ycleT""x UTJPlTCTtE" "V m~GRE Tc be" DonT " _ ooo? Woo 

IF NOT BFULL THEN GO TO COMPARE; * IGNORE LaST INPUT 00073900 

JLy.IJLtJ_Ri.fiU?lP_,BE*J)i __ __ 00074000 



SE««bPREV; X USING THIS SeO". ~NUMBp ~ 

X... 

..WRXTEMWl 

x . . , " ~ "" ~ 

IF NPTR»=NPTR+1 GTR 25 ThEN X SEGMENT IS FILLED 
BEGIN 



00074100 

00074200 

.0 0074 30 . 



writecnewtab,30#nc*3); x output to disk 
nptr*»o; 

..£j_DJ 



n c nptr 3 i «0* seq c 2 1 1 2 1 * 27 h (n~c t i =nc t + 1 )?4 : 3 2 » 1 6 u 
bfull:=false; 

-ULEQLU.-J IH_E.N_.G0 TLCCP ELSE GO COMPARE; 



00074400 
00074500 
OOOJ .160.0 
00074700 
00074800 
0007 4900 



00075000 
00075100 
00075200 



ENOMERGEI 



IF NPTR»*NPTR+1 GTR 29 THEN X SEGMENl IS FILLED 

BEGIN 
W RITEC NE W T A 8 *>_3 ^ N C * 3 3 ; % OU T PUT TO D IS_K 

NPTRt*0; ' " 

end; 
for ifnptr step 1 until 29 00 nc 1 3 feofmarkj 



00075300 
00075400 
00075500 



00075600 
00075700 
00075800 



00075900 
00076000 
000761QQ 



7* 



IS 
6 
/ 

«! 



WHITE(NEWTAB*30,N[*J ); 

CLOSE(SOURCE); closecpatch); 

LDC.K<NEWTABj*); LD.CK.C.wRJv.riLA.*J.i 

*• * • • 

EXIT: 

% t • » • 

end program. 

enu;end. last cahd on ocrdinij tape 

ie>>X2 1 9 Y 1 3 3 DO 1U 6 6*24 3 ri23MZ±±Af.x2.U.U 31UQ4-* 1 -6 & * 1 A3. Y Ul Q.Q l_*_ 



00076200 
00076600 

OOU7.67Q0 

00076800 
00076900 

_ - Q.UQJ7QQQ 

00077100 
99V99999 

.ZHH-iQhJSl 



2 l 

ps\ 

? \. 
«| 

76 

28 
29 

30 

131 

f: 

33 

34 
,3f> 
36 
3) 
3d 
39| 
40 
1V 

141 
44 

c 

,48 
49J 

p> 

I 51 
52 

53 



i 
i 



4 

5 

6 

7 

8 ! 

9 

10 

11 1 

12 

13 

14 I 

15 

16 

17 1 

18 

19 

20 I 

21 

22 

23 ( 

24 

25 

26 i 

27 

28 

29 ( 

30 

31 

32 i 

33 

34 

35 ( 

36 

37 

38 (| 

39 

40 

41 i 

42 

43 

44 f 

45 

46 

47 I 

48 

49 

50 I 

51 

52 

53 % 

54 

55 

56 m 



LABEL OOO0OOOOOPRlMTEK001750yyCC EX 06 JEC T/KE AL); F JLE SQURCEF ILEsS YMBOL/P AHtfl ; END * 



OBJECT /READ 



V 
/ 

3 



"I 

14 
16 
16 
17 
18 
19 
20 
21 
22 
23 
24 
2S 
26 
27 
28 
29 
30 
31 
32 
13 

r" 

1 36 

36 

37 ~ 

38 

39 

•0 

41 

42 

43 ~ 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 i 
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4 

5< 



7 

8 ; 
9 
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12 
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